home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / desaware / verstamp / versamp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-03-22  |  3.8 KB  |  117 lines
  1. VERSION 4.00
  2. Begin VB.Form VersionStamperSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VersionStamper Sample"
  5.    ClientHeight    =   4920
  6.    ClientLeft      =   1155
  7.    ClientTop       =   1515
  8.    ClientWidth     =   4560
  9.    Height          =   5325
  10.    Left            =   1095
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4920
  15.    ScaleWidth      =   4560
  16.    Top             =   1170
  17.    Width           =   4680
  18.    Begin VB.CommandButton Command2 
  19.       Caption         =   "&Verify Files"
  20.       Height          =   525
  21.       Left            =   120
  22.       TabIndex        =   5
  23.       Top             =   4320
  24.       Width           =   1245
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "E&xit"
  28.       Height          =   525
  29.       Left            =   3210
  30.       TabIndex        =   4
  31.       Top             =   4320
  32.       Width           =   1245
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   "This sample project uses some invalid file version, date, and size in order to show the conflict reports."
  36.       Height          =   405
  37.       Index           =   4
  38.       Left            =   150
  39.       TabIndex        =   6
  40.       Top             =   3810
  41.       Width           =   4275
  42.    End
  43.    Begin VB.Label Label1 
  44.       Caption         =   $"VerSamp.frx":0000
  45.       Height          =   1245
  46.       Index           =   3
  47.       Left            =   150
  48.       TabIndex        =   3
  49.       Top             =   2460
  50.       Width           =   4275
  51.    End
  52.    Begin VB.Label Label1 
  53.       Caption         =   $"VerSamp.frx":0136
  54.       Height          =   1005
  55.       Index           =   2
  56.       Left            =   150
  57.       TabIndex        =   2
  58.       Top             =   1350
  59.       Width           =   4275
  60.    End
  61.    Begin VerstampLibDemoCtl.VersionStampDemo VersionStampDemo1 
  62.       Left            =   2040
  63.       Top             =   4350
  64.       _Version        =   262144
  65.       _ExtentX        =   847
  66.       _ExtentY        =   847
  67.       _StockProps     =   0
  68.       SelectFiles     =   "VerSamp.frx":024E
  69.       SelectFiles32   =   "VerSamp.frx":0264
  70.       VerifyMode      =   0
  71.       ReadPropErrors  =   0   'False
  72.       Slave           =   0   'False
  73.       Delay           =   0   'False
  74.       FileFilterExt   =   ""
  75.       OtherPaths      =   ""
  76.       PathFilter      =   6
  77.       FileFilter      =   3
  78.    End
  79.    Begin VB.Label Label1 
  80.       Caption         =   "You start by adding the VersionStamper demo control to your project, then add the VerVrfy.bas, VerVrfy2.frm and English.bas files."
  81.       Height          =   615
  82.       Index           =   1
  83.       Left            =   150
  84.       TabIndex        =   1
  85.       Top             =   630
  86.       Width           =   4275
  87.    End
  88.    Begin VB.Label Label1 
  89.       Caption         =   "Here is an example on how to use the VersionStamper demo control to check for file conflicts on the current system."
  90.       Height          =   435
  91.       Index           =   0
  92.       Left            =   150
  93.       TabIndex        =   0
  94.       Top             =   90
  95.       Width           =   4275
  96.    End
  97. Attribute VB_Name = "VersionStamperSample"
  98. Attribute VB_Creatable = False
  99. Attribute VB_Exposed = False
  100. Option Explicit
  101. Private Sub Command1_Click()
  102. Unload Me
  103. End Sub
  104. Private Sub Command2_Click()
  105.     ' Enter name of your custom application here
  106.     FileToCheck$ = App.Path
  107.     ' We append a backslash only if one isn't present - just in case project is in root
  108.     If Right$(FileToCheck$, 1) <> "\" Then FileToCheck$ = FileToCheck$ & "\"
  109.     FileToCheck$ = FileToCheck$ & "VerSamp.exe"
  110.     Load VerVrfy2   ' This starts the verification
  111.     If ConflictFilesFound% Then
  112.         VerVrfy2.Show 1
  113.     Else
  114.         Unload VerVrfy2
  115.     End If
  116. End Sub
  117.